home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / util / gnu / emacs_src_18_58.lha / emacs-18.58 / lisp / term / bobcat.el < prev    next >
Lisp/Scheme  |  1992-02-21  |  321b  |  12 lines
  1. ;;; HP terminals usually encourage using ^H as the rubout character
  2.  
  3. (let ((the-table (make-string 128 0)))
  4.   (let ((i 0))
  5.     (while (< i 128)
  6.       (aset the-table i i)
  7.       (setq i (1+ i))))
  8.   ;; Swap ^H and DEL
  9.   (aset the-table ?\177 ?\^h)
  10.   (aset the-table ?\^h ?\177)
  11.   (setq keyboard-translate-table the-table))
  12.